How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/SHARED.DIR/01964_Script_Animate

Text File | 1995-09-13 | 11KB | 380 lines

global gbeenclicked

on AnimateLoop whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  puppetsound whichsound
  updatestage
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      if (the castNum of sprite gSprite = gEndCast) then
        wait .8
        set the castNum of sprite gSprite = gCast
        updatestage
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast + 1
        updatestage
      end if
      wait .5
      if the mousedown then
        exit repeat
      end if
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end

on AnimateLoopFast whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  puppetsound whichsound
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      if (the castNum of sprite gSprite = gEndCast) then
        wait .3
        set the castNum of sprite gSprite = gCast
        updatestage
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast + 1
        updatestage
      end if
      wait .2
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end

on AnimateLoopFastest whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  puppetsound whichsound
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      if (the castNum of sprite gSprite = gEndCast) then
        wait .1
        set the castNum of sprite gSprite = gCast
        updatestage
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast + 1
        updatestage
      end if
      wait .1
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end

on AnimateLoopFastPause whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes, Pausehowlong
  ArrowCursor
  puppetsound whichsound
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      if (the castNum of sprite gSprite = gEndCast) then
        wait Pausehowlong
        set the castNum of sprite gSprite = gCast
        updatestage
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast + 1
        updatestage
      end if
      wait .2
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    wait Pausehowlong
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end

on AnimateLoopToFro whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  puppetsound whichsound
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      set theCast = the castNum of sprite gSprite
      set the castNum of sprite gSprite = theCast + 1
      updatestage
      wait .1
      set count = count + 1
    end repeat
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      set theCast = the castNum of sprite gSprite
      set the castNum of sprite gSprite = theCast - 1
      updatestage
      wait .1
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end

on AnimateLoopToFroSlow whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  puppetsound whichsound
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      set theCast = the castNum of sprite gSprite
      set the castNum of sprite gSprite = theCast + 1
      updatestage
      wait .4
      set count = count + 1
    end repeat
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      set theCast = the castNum of sprite gSprite
      set the castNum of sprite gSprite = theCast - 1
      updatestage
      wait .4
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end

on AnimateToSlowPauseFrom whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  puppetsound whichsound
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while (the MouseUp)
      if (the castNum of sprite gSprite = gEndCast) then
        exit repeat
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast + 1
        updatestage
        wait .4
      end if
    end repeat
    wait 1
    repeat while (the MouseUp)
      if (the castNum of sprite gSprite = gCast) then
        exit repeat
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast - 1
        updatestage
        wait .4
      end if
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end


on AnimateRepeat whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      puppetsound whichsound
      if (the castNum of sprite gSprite = gEndCast) then
        wait .3
        set the castNum of sprite gSprite = gCast
        updatestage
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast + 1
        updatestage
      end if
      wait .3
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    Puppetsound 0
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end

on AnimateLoopSoundFade whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  puppetsound whichsound
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    repeat while count < HowManyCast and (the MouseUp)
      if (the castNum of sprite gSprite = gEndCast) then
        wait .5
        set the castNum of sprite gSprite = gCast
        updatestage
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast + 1
        updatestage
      end if
      wait .3
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Sound FadeOut 1, 3*60
  set gbeenclicked = 0
end

on AnimateRepeat2 whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set RunThruCount = 0
  repeat while RunThruCount < HowManyTimes and (the MouseUp)
    set count = 0
    puppetsound whichsound
    repeat while count < HowManyCast and (the MouseUp)
      if (the castNum of sprite gSprite = gEndCast) then
        wait .4
        set the castNum of sprite gSprite = gCast
        updatestage
      else
        set theCast = the castNum of sprite gSprite
        set the castNum of sprite gSprite = theCast + 1
        updatestage
      end if
      wait .4
      set count = count + 1
    end repeat
    if the mousedown then
      exit repeat
    end if
    set the castnum of sprite whichsprite = gCast
    updatestage
    set RunThruCount = RunThruCount + 1
  end repeat
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end